home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 27 / PC Gamer IT CD 27.iso / MEDIA / STORE.DXR / Internal_69_clickableIndex.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  770 b   |  38 lines
  1. on mouseEnter me
  2.   cursor(280)
  3. end
  4.  
  5. on mouseLeave me
  6.   cursor(-1)
  7. end
  8.  
  9. on mouseDown me
  10.   set x to the mouseLine
  11.   if line x of field "indexlist" = EMPTY then
  12.     nothing()
  13.   else
  14.     repeat with j = 1 to 65
  15.       puppetSprite(j, 0)
  16.     end repeat
  17.     set searchVari to line x of field "indexlist"
  18.     repeat with i = 1 to 20
  19.       if line i of field "storeData" contains searchVari then
  20.         put line i of field "storeData" into field "temp"
  21.         put "box" & i & "." into field "whichbox"
  22.         updateData()
  23.         if i <= 6 then
  24.           go("info")
  25.         else
  26.           if i > 10 then
  27.             go("info3")
  28.           else
  29.             go("info2")
  30.           end if
  31.         end if
  32.         next repeat
  33.       end if
  34.       nothing()
  35.     end repeat
  36.   end if
  37. end
  38.